home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / addflo / data1.cab / Program_Executable_Files / AddFlow / Samples / Demo / Task.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-05-06  |  5.3 KB  |  172 lines

  1. VERSION 4.00
  2. Begin VB.Form frmTask 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Actor"
  7.    ClientHeight    =   1005
  8.    ClientLeft      =   2115
  9.    ClientTop       =   2385
  10.    ClientWidth     =   4605
  11.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   700
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   1410
  22.    Left            =   2055
  23.    LinkTopic       =   "Form1"
  24.    ScaleHeight     =   1005
  25.    ScaleWidth      =   4605
  26.    Top             =   2040
  27.    Width           =   4725
  28.    Begin VB.TextBox Text2 
  29.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       Height          =   285
  39.       Left            =   1140
  40.       TabIndex        =   1
  41.       Top             =   570
  42.       Width           =   1995
  43.    End
  44.    Begin VB.CommandButton Command2 
  45.       Appearance      =   0  'Flat
  46.       BackColor       =   &H80000005&
  47.       Caption         =   "&Cancel"
  48.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   405
  58.       Left            =   3750
  59.       TabIndex        =   3
  60.       Top             =   540
  61.       Width           =   800
  62.    End
  63.    Begin VB.CommandButton Command1 
  64.       Appearance      =   0  'Flat
  65.       BackColor       =   &H80000005&
  66.       Caption         =   "&Ok"
  67.       Default         =   -1  'True
  68.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   8.25
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   405
  78.       Left            =   3750
  79.       TabIndex        =   2
  80.       Top             =   90
  81.       Width           =   800
  82.    End
  83.    Begin VB.TextBox Text1 
  84.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  85.          Name            =   "MS Sans Serif"
  86.          Size            =   8.25
  87.          Charset         =   0
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   315
  94.       Left            =   1140
  95.       TabIndex        =   0
  96.       Top             =   180
  97.       Width           =   1995
  98.    End
  99.    Begin VB.Label Label2 
  100.       Appearance      =   0  'Flat
  101.       AutoSize        =   -1  'True
  102.       BackColor       =   &H00C0C0C0&
  103.       Caption         =   "Role name:"
  104.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  105.          Name            =   "MS Sans Serif"
  106.          Size            =   8.25
  107.          Charset         =   0
  108.          Weight          =   400
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       ForeColor       =   &H80000008&
  114.       Height          =   195
  115.       Left            =   120
  116.       TabIndex        =   5
  117.       Top             =   600
  118.       Width           =   810
  119.    End
  120.    Begin VB.Label Label1 
  121.       Appearance      =   0  'Flat
  122.       AutoSize        =   -1  'True
  123.       BackColor       =   &H00C0C0C0&
  124.       Caption         =   "Actor name:"
  125.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  126.          Name            =   "MS Sans Serif"
  127.          Size            =   8.25
  128.          Charset         =   0
  129.          Weight          =   400
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       ForeColor       =   &H80000008&
  135.       Height          =   195
  136.       Left            =   120
  137.       TabIndex        =   4
  138.       Top             =   240
  139.       Width           =   855
  140.    End
  141. Attribute VB_Name = "frmTask"
  142. Attribute VB_Creatable = False
  143. Attribute VB_Exposed = False
  144. Option Explicit
  145. Dim NodeText$
  146. Public Function Display(s As String) As String
  147.   NodeText = s
  148.   Me.Show 1
  149.   Display = NodeText
  150. End Function
  151. Private Sub Command1_Click()
  152.   NodeText = Text1 + Chr$(13) + Chr$(10) + Text2
  153.   Unload Me
  154. End Sub
  155. Private Sub Command2_Click()
  156.   NodeText = "-1"
  157.   Unload Me
  158. End Sub
  159. Private Sub Form_Load()
  160.   Dim s$, pos%
  161.       
  162.   s = NodeText
  163.   pos = InStr(s, Chr$(13))
  164.   If pos = 0 Then
  165.     Text1 = s
  166.     Text2 = ""
  167.   Else
  168.     Text1 = Left$(s, pos - 1)
  169.     Text2 = Mid$(s, pos + 2)
  170.   End If
  171. End Sub
  172.